This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
to do - 1.):
if an incoming mail requests a return receipt, there is a field, called "ReturnReceipt".
You can add a row in your inbox to see if an email contains the field ReturnReceipt as shown in the following example:
@If(ReturnReceipt="1";56;"")
to do - 2.):
After that you can work on your memo-form in the "query open - event" with the following code:
start of code ->
Dim uidoc As NotesUIDocument
Set uidoc = Source
Dim doc As NotesDocument
Set doc = Source.document
If uidoc.IsNewDoc Then
' don't do anything, as this is a new document ...
Else
If doc.GetItemValue("ReturnReceipt")(0) = "1" Then
Dim answer As Integer
answer% = Messagebox("Send ReturnReceipt NOW?", 36, "ReturnReceipt" )
If answer% = 7 Then
' determine if the user would like to return the receipt
doc.ReturnReceipt = "0"
' Should the ReturnReceipt for THIS Mail be suppressed permanently?|
Dim answer2 As Integer
answer2% = Messagebox("Should the ReturnReceipt for THIS Mail be suppressed permanently?", 36, "ReturnReceipt will be suppressed temporary, NO ReturnReceipt will be sent NOW!")
' answer2% = Messagebox(twoliner, boxType&, "Hint & Question")
If answer2% = 6 Then
' enable this if you want to totally disable RR on this message
Call doc.save (True, True)
End If
End If
End If
End If
<- end of code
This works fine even on v7-templates ...
Hope this helps
Wilhelm
Feedback response number WEBB7THFZQ created by ~Sean Fronumanettu on 06/30/2009
Suppress and/or ask for sending Returnreceipt
Return to top
. . Suppress and/or ask for sending Ret... (~Sean Fronumane... 30.Jun.09) 
